"0","```r
# What are the rownames showing?  
# Let's replace the sample ID in the fauna object (rownames) with the ages
# but only do this if the sample IDs match across objects
ages <- scpdAges$age
if (all(rownames(scpdFauna) == scpdAges$sample.id)){
  rownames(scpdFauna) <- ages
}
# set the names of the small mammal genera of interest
# note: this is a clunky workaround - ideally we'd be able to harmonize taxonomy using the database/API tools, but they aren't as good in Neotoma as in PBDB because of the way taxonomy is handled
sm_genus <- c(\"Scapanus\", \"Microtus\", \"Neotoma\", \"Peromyscus\", \"Sorex\", \"Spermophilus\", \"Tamias\", \"Tamiasciurus\", \"Thomomys\", \"Arborimus\", \"Reithrodontomys\", \"Sciurus\", \"Glaucomys\", \"Myodes\", \"Aplodontia\")
# create a new dataframe with the merged data
scpdSM <- matrix(nrow=nrow(scpdFauna), ncol=length(sm_genus))
for (i in 1:length(sm_genus)){
  cols <- grep(sm_genus[i], colnames(scpdFauna))
  if (length(cols)==1){
    scpdSM[,i] <- scpdFauna[,cols]
  }
  if (length(cols) > 1){
    scpdSM[,i] <- rowSums(scpdFauna[,cols])
  }
  
}
# clean up dataframe
colnames(scpdSM) <- sm_genus
rownames(scpdSM) <- rownames(scpdFauna)
```"
